{\rtf1\ansi\deff0\deflang1033{\fonttbl{\f0\froman\fprq2\fcharset0 Times New Roman;}}
\viewkind4\uc1\pard\f0\fs20 2: LABEL 2\par
WRITE @ 100C3 = 30\par
WRITE @ 100C1 = 0\par
WRITE @ 100C0 = FF\par
WRITE @ 100C1 = 4\par
WRITE @ 100C0 = EO\tab\tab\tab !free-run/high & low pulse\par
WRITE @ 100C3 = 38\par
GOTO 3\line\par
3: LABEL 3\par
WRITE @ 100C1 = 0\par
WRITE @ 100C0 = 0\tab\tab\tab !pia port a to input\par
WRITE @ 100C1 = 4\par
READ @ 100C0\tab\tab\tab\tab !read port a\par
INC REG1\par
REGE = REGE AND E0\tab\tab\tab !mask off all but probe level status\par
IF REGE = 60 GOTO 4\tab\tab\tab !check for low & invalid\par
IF REGE = A0 GOTO 5\tab\tab\tab !check for high & invalid\par
IF REGE = E0 GOTO 6\tab\tab\tab !check for low, invalid, high\par
GOTO 0\par
\par
4: LABEL 4\par
DPY-#PULSE LOW <GREEN>\par
EXECUTE PROGRAM 13\par
IF REG1 = 1 GOTO 1\par
IF REG1 = 2 GOTO 2\par
GOTO 0\par
\par
5: LABEL 5\par
DPY-PULSE HIGH <RED>#\par
EXECUTE PROGRAM 13\par
IF REG1 = 1 GOTO 1\par
IF REG1 = 2 GOTO 2\par
GOTO 0\par
\par
6: LABEL 6\par
DPY-#PULSE HIGH AND LOW <BOTH>\par
EXECUTE PROGRAM 13\line IF REG1 = 1 GOTO 1\line IF REG1 = 2 GOTO 2\line GOTO 0\par
\par
\par
\par
}
